unpeu25 <- read.csv("~/cours/TPE/pratique/data/25pofunpeu.csv")
aver25 <- read.csv("~/cours/TPE/pratique/data/25pofaverage.csv")
pa25 <- read.csv("~/cours/TPE/pratique/data/25pofpanic.csv")
unpeu50 <- read.csv("~/cours/TPE/pratique/data/50pofunpeu.csv")
aver50 <- read.csv("~/cours/TPE/pratique/data/50pofaverage.csv")
pa50 <- read.csv("~/cours/TPE/pratique/data/50pofpanic.csv")
pa75 <- read.csv("~/cours/TPE/pratique/data/75pofpanic.csv")
pa100 <- read.csv("~/cours/TPE/pratique/data/100pofpanic.csv")
unpeu75 <- read.csv("~/cours/TPE/pratique/data/75pofunpeu.csv")
unpeu100 <- read.csv("~/cours/TPE/pratique/data/100pofunpeu.cvs")
aver75 <- read.csv("~/cours/TPE/pratique/data/75pofaverage.csv")
aver100 <- read.csv("~/cours/TPE/pratique/data/100pofaverage.cvs")

boxplot(sans$Collisions, unpeu50$Collisions, aver50$Collisions, pa50$Collisions, names=c("sans peur", "un peu peur", "moyen peur","panique"), title="hhh", main="50 % des agent ayant peur", xlab="Niveau de peur", ylab="Nombre de collisions")

boxplot(sans$Mean, unpeu10$Mean, aver10$Mean, pa10$Mean, names=c("sans peur", "un peu peur", "moyen peur","panique"), title="hhh", main="10 % des agent ayant peur", xlab="Niveau de peur", ylab="Moyen temps pour q'un agent quitte le magasin")

boxplot(sans$Collisions, unpeu100$Collisions, aver100$Collisions, pa100$Collisions, names=c("sans peur", "un peu peur", "moyen peur","panique"), title="hhh", main="100 % des agent ayant peur", xlab="Niveau de peur", ylab="Nombre de collisions")
ggplot(data.frame(time10names, time10), aes(x=factor(time10names,levels=unique(time10names)),time10, group=1)) + geom_line()
boxplot(sans$Mean, unpeu10$Mean, aver10$Mean, pa10$Mean, names=c("sans peur", "un peu peur", "moyen peur","panique"), title="hhh", main="10 % des agent ayant peur", xlab="Niveau de peur", ylab="Moyen temps pour un agent quitte le magasin")
boxplot(sans$Mean, unpeu25$Mean, aver25$Mean, pa25$Mean, names=c("sans peur", "un peu peur", "moyen peur","panique"), title="hhh", main="25 % des agent ayant peur", xlab="Niveau de peur", ylab="Moyen temps pour un agent quitte le magasin")
boxplot(sans$Mean, unpeu50$Mean, aver50$Mean, pa50$Mean, names=c("sans peur", "un peu peur", "moyen peur","panique"), title="hhh", main="50 % des agent ayant peur", xlab="Niveau de peur", ylab="Moyen temps pour un agent quitte le magasin")
boxplot(sans$Mean, unpeu75$Mean, aver75$Mean, pa75$Mean, names=c("sans peur", "un peu peur", "moyen peur","panique"), title="hhh", main="75 % des agent ayant peur", xlab="Niveau de peur", ylab="Moyen temps pour un agent quitte le magasin")
boxplot(sans$Mean, unpeu100$Mean, aver100$Mean, pa100$Mean, names=c("sans peur", "un peu peur", "moyen peur","panique"), title="hhh", main="100 % des agent ayant peur", xlab="Niveau de peur", ylab="Moyen temps pour un agent quitte le magasin")